unit InCarInfoFormUnit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BaseFormUnit, ExtCtrls, DBCtrls, Grids, DBGrids, StdCtrls,
  JvComponentBase, JvDockControlForm, JvExExtCtrls, ComCtrls, MPlayer,
  OleCtrls, SHDocVw, JvAVICapture;

type
  TInCarInfoForm = class(TBaseForm)
    Panel1: TPanel;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    DBImage1: TDBImage;
    JvAVICapture1: TJvAVICapture;
    ComboBox1: TComboBox;
    CamPanel: TPanel;
    procedure FormCreate(Sender: TObject);
    procedure ComboBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  InCarInfoForm: TInCarInfoForm;

implementation

{$R *.dfm}

procedure TInCarInfoForm.FormCreate(Sender: TObject);
var i: Integer;
begin
  inherited;
  for i := 0 to JvAVICapture1.Drivers.Count - 1 do
  begin
    ComboBox1.Items.Add(JvAVICapture1.Drivers[i]);
  end;
end;

procedure TInCarInfoForm.ComboBox1Change(Sender: TObject);
begin
  inherited;
  try
    JvAVICapture1.DriverIndex := ComboBox1.ItemIndex;
    JvAVICapture1.Previewing := true;
  except
  end;
end;

end.
